home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Format / charset / test / progs / translate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-17  |  720 b   |  73 lines
  1. /* converts certain characters to t.61-8bit ones */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header$";
  5. # endif
  6.  
  7. /*
  8.  * $Header$
  9.  *
  10.  * $Log$
  11.  */
  12.  
  13.  
  14.  
  15. #include <stdio.h>
  16.  
  17.  
  18.  
  19. /* --- *** ---
  20.     #    ->    0/0
  21.     +    ->    GS 
  22.     <    ->     10/11
  23.     >    ->    11/11
  24.     $    ->     12/1
  25.     |    ->    12/2
  26.     ~    ->    12/4
  27.     @    ->    12/11
  28. --- *** --- */
  29.  
  30.  
  31.  
  32. main()
  33. {
  34.     char    s[BUFSIZ];
  35.     int    c;
  36.  
  37.  
  38.     while ((c = getchar()) !=  EOF) {
  39.         switch (c) {
  40.         case '#':
  41.             c = 0;
  42.             break;
  43.         case '+':
  44.             c = 29;
  45.             break;
  46.         case '<':
  47.             c = 171;
  48.             break;
  49.         case '>':
  50.             c = 187;
  51.             break;
  52.         case '$':
  53.             c = 193;
  54.             break;
  55.         case '|':
  56.             c = 194; 
  57.             break;
  58.         case '~':
  59.             c = 196;
  60.             break;
  61.         case '@':
  62.             c = 206;
  63.             break;
  64.         }
  65.  
  66.  
  67.         fprintf (stdout, "%c", c);
  68.     }
  69.  
  70.     fflush (stdout);
  71.     exit (0);
  72. }
  73.